home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / WayeBox Folder / WayeBox 1.1 / box1 / background_2671.txt < prev    next >
Encoding:
Text File  |  1990-06-13  |  4.0 KB  |  204 lines
  1. -- background: 2671 from stack: in
  2. -- bmap block id: 3310
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: map
  6. ----- HyperTalk script -----
  7.  
  8.  
  9. on mouseUp
  10.   --clicking on the card brings you back to Directory
  11.   push card
  12. end mouseUp
  13.  
  14.  
  15.  
  16. -- part 2 (button)
  17. -- low flags: 00
  18. -- high flags: 8000
  19. -- rect: left=432 top=294 right=342 bottom=512
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 1005 / 1005
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: go to summary
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   push card
  31.   go to card "main card"
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: 8002
  39. -- rect: left=407 top=23 right=45 bottom=507
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: pop card
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   pop card
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 5 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=205 top=315 right=338 bottom=231
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 1014 / 1014
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Prev
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   go to prev card
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 6 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=237 top=315 right=338 bottom=262
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 1013 / 1013
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Next
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   go to next card
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 7 (button)
  94. -- low flags: 00
  95. -- high flags: 8000
  96. -- rect: left=428 top=244 right=294 bottom=512
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 27056 / 27056
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: To make a button
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   push card
  108.   go to card id 10259
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 8 (button)
  114. -- low flags: 00
  115. -- high flags: 8000
  116. -- rect: left=275 top=297 right=342 bottom=351
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 11645 / 11645
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: no. of cards
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   set userlevel to 5
  128.   put empty into message box
  129.   get number of cards
  130.   put "The total Number of Cards = " into word 1 of message
  131.   put it into word 7 of message
  132.   set userlevel to 2
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 9 (button)
  138. -- low flags: 00
  139. -- high flags: 8000
  140. -- rect: left=355 top=296 right=342 bottom=413
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 32462 / 32462
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Help
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   push card
  152.   go to card id 11167 of stack "box4"
  153. end mouseUp
  154.  
  155.  
  156.  
  157.  
  158. -- part 10 (button)
  159. -- low flags: 00
  160. -- high flags: 8002
  161. -- rect: left=0 top=38 right=58 bottom=80
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Name Card
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   put empty into NameCard
  173.   if field "Name Card" is empty
  174.   then
  175.   ask "Please enter the name of this card:"
  176.   if it is empty then exit mouseUp
  177.   put it into NameCard
  178.   set the name of this card to NameCard
  179.   put NameCard into field "Name Card"
  180. end if
  181.  
  182. if field "Name Card" is not empty
  183. then
  184. put first line of field "Name Card" into NameCard
  185. set the name of this card to NameCard
  186. end if
  187.  
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 11 (field)
  193. -- low flags: 00
  194. -- high flags: 4000
  195. -- rect: left=81 top=41 right=59 bottom=223
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 3
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Name Card
  204.